home *** CD-ROM | disk | FTP | other *** search
/ Savor the Moment - Entert…ing Without Reservations / Savoe the Moment - Entertaining Without Reservations.iso / pc / Main Menu.dxr / 00075.ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  571 b   |  31 lines
  1. global gSwaMiaw, shops, i, gTimer, sc
  2.  
  3. on timeout
  4.   play movie "show"
  5. end
  6.  
  7. on prepareMovie
  8.   repeat with i = 29 to 36
  9.     sprite(i).visible = 0
  10.   end repeat
  11.   cursor(0)
  12.   sc = 1
  13.   set the timeoutLength to 5 * 60 * 60
  14.   if shops = VOID then
  15.     sprite(6).visible = 0
  16.   else
  17.     sprite(6).visible = 1
  18.   end if
  19. end
  20.  
  21. on startMovie
  22.   gSwaMiaw = window("miaw")
  23.   open(gSwaMiaw)
  24.   gSwaMiaw.rect = rect(-200, -200, -100, -100)
  25.   tell window("miaw")
  26.     member("loop").volume = 150
  27.     play frame member("loop")
  28.   end tell
  29.   register(xtra("printomatic"), "PMAT160-174-56026")
  30. end
  31.